CAAEquinoxesAndSolstices_LengthOfSummer <-
function(Year, bNorthernHemisphere = TRUE){.Call("CAAEquinoxesAndSolstices_LengthOfSummer", Year, bNorthernHemisphere  ) }
